#!/usr/bin/perl
 
print 1 + 2 * 3 + 4 . "\n";
print ((1 + 2) * (3 + 4));
print "\n";
# Print as a function or operator
print ((5 + 5 ) * 5); print "\n";
print (5 + 5 ) * 5; print "\n";
# Use unary + operator to tell perl
# that we are not making print() function call
# but rather using parentheses as a precedence
print +(5 + 5 ) * 5; print "\n"; 